﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class TempfacFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As TempfacBE
        Dim tmpTempfac As TempfacBE = New TempfacBE()
        Try
            With tmpTempfac
                .IdProveedor = convertDTFromDb.ConvertString(dr.Item("IdProveesdor"))
                .Importe = convertDTFromDb.convertDouble(dr.Item("Importe"))
                .NumFactura = convertDTFromDb.ConvertString(dr.Item("NumFactura"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .StatusC = convertDTFromDb.ConvertString(dr.Item("StatusC"))
            End With
            Return tmpTempfac
        Catch ex As Exception
            Throw
        Finally
            tmpTempfac = Nothing
        End Try
    End Function
End Class
